home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
apcp38.arc
/
NCRTP.ASP
< prev
next >
Wrap
Text File
|
1991-01-09
|
8KB
|
385 lines
goto init
dial:
strcmp s4 " "
if success
return
endif
isfile s4
if success
return
endif
clear
box 00 00 02 79 n9
atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
atsay 01 08 n9 "│ │ │"
atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
atsay 01 02 n8 "NCRTP"
atsay 01 10 n8 s4
atsay 01 21 n8 "Research Triangle Park 919"
atsay 01 51 n8 s5
locate 05 00
transmit "I^m"
pause 1
transmit "ATZ^m"
waitfor "OK"
transmit "^E^m"
waitfor "READY"
transmit "D"
transmit S4
transmit "^m"
rget s1
rget s1 80 40
rget s1 40 40
rget s1 40 40
mess:
find s1 "BUSY"
if found
strcpy s9 "M"
return
endif
find s1 "ANSWER TONE"
if found
clear
log open s4
alarm 2
exit
endif
find s1 "RINGING"
if found
rget s1
find s1 "RINGING"
if not found
goto mess
else
log open s4
message "APCP: No answer - still ringing"
log close
transmit "^C^D^C"
endif
else
endif
return
top:
find s0 "A"
if found
strcpy s4 "847-4625"
strcpy s5 "RBBS IBM PC Raleigh "
gosub dial
endif
find s0 "B"
if found
strcpy s4 "872-2618"
strcpy s5 "RBBS IBM PC RAL-Net "
gosub dial
endif
find s0 "C"
if found
strcpy s4 "781-4203"
strcpy s5 "Capitol RCP/M PBBS "
gosub dial
endif
find s0 "D"
if found
strcpy s4 "781-7047"
strcpy s5 "Smalltime BBS (364/701) "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "782-3095"
strcpy s5 "Starfleet BBS "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "832-0035"
strcpy s5 "Anonymous' Jones BBS "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "361-2638"
strcpy s5 "C:DOS BBS "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "471-8048"
strcpy s5 "Rapid Transit Authority "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "383-4905"
strcpy s5 "Faulkner's Supply "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "383-8707"
strcpy s5 "Bull City TIBBS "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "846-3734"
strcpy s5 "Boinger Board "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "846-4499"
strcpy s5 "Real Hackers' Inn "
gosub dial
endif
find s0 "M"
if found
strcpy s4 "848-0901"
strcpy s5 "Devil's Advocate BBS "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "851-6806"
strcpy s5 "Equal BBS "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "851-8066"
strcpy s5 "The Next Generation "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "851-8460"
strcpy s5 "NCC FidoNet (151/100) "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "833-7435"
strcpy s5 "Z-Board "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "834-0649"
strcpy s5 "State of the Art #2 "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "839-5907"
strcpy s5 "The Recording Studio "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "790-3810"
strcpy s5 "RBBS IBM PC Ral-Net #2 "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "469-5611"
strcpy s5 "CCCC "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "481-4300"
strcpy s5 "Reel Class BBS "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "967-4249"
strcpy s5 "U-NAME-IT "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "477-9552"
strcpy s5 "Durham After Dark "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "489-6890"
strcpy s5 "Panopticon Central "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "471-6255"
strcpy s5 "Tri-City Mall "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "544-3793"
strcpy s5 "Tag FidoNet (360/105) "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "460-0586"
strcpy s5 "A.L.S. BBS "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "481-4702"
strcpy s5 "Wild West BBS "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "362-0676"
strcpy s5 "DialYourMatch #20 "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "362-8053"
strcpy s5 "The Pits "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "460-0607"
strcpy s5 "Aladdin's Lamp "
gosub dial
endif
find s0 "6"
if found
strcpy s4 "467-3520"
strcpy s5 "The Multiverse "
gosub dial
endif
find s0 "7"
if found
strcpy s4 "469-9750"
strcpy s5 "RPC/M-86 BBS "
gosub dial
endif
find s0 "8"
if found
strcpy s4 "481-4732"
strcpy s5 "Solar Comet "
gosub dial
endif
find s0 "9"
if found
strcpy s4 "286-3195"
strcpy s5 "Desktop Publishing "
gosub dial
endif
find s0 "@"
if found
strcpy s4 "471-6436"
strcpy s5 "Deep Thought "
gosub dial
endif
find s0 "#"
if found
strcpy s4 "682-4225"
strcpy s5 "Starship Traveller "
gosub dial
endif
find s0 "$"
if found
strcpy s4 "737-3990"
strcpy s5 "Sesame BBS "
gosub dial
endif
find s0 "%"
if found
strcpy s4 "772-1277"
strcpy s5 "Little Chip BBS "
gosub dial
endif
find s0 "&"
if found
strcpy s4 "779-6674"
strcpy s5 "MicroMessage Service (MU) "
gosub dial
endif
find s0 "*"
if found
strcpy s4 "782-6123"
strcpy s5 "Software Workshop "
gosub dial
endif
find s9 "M"
if found
strcpy s9 " "
goto top
endif
clear
box 00 00 02 79 n9
atsay 01 02 n8 "APCP: All numbers connected / didn't answer ... terminating ..."
locate 05 00
alarm 2
exit
init:
strcpy s9 " "
log close
clear
init n9 07
init n8 07
box 00 00 22 38 n9
box 00 41 22 79 n9
atsay 01 02 n8 "A RBBS IBM PC Raleigh .... 847-4625"
atsay 02 02 n8 "B RBBS IBM PC RAL-Net .... 872-2618"
atsay 03 02 n8 "C Capitol RCP/M PBBS...... 781-4203"
atsay 04 02 n8 "D Smalltime BBS........... 781-7047"
atsay 05 02 n8 "E Starfleet BBS........... 782-3095"
atsay 06 02 n8 "F Anonymous Jones' BBS.... 832-0035"
atsay 07 02 n8 "G C:DOS BBS............... 361-2638"
atsay 08 02 n8 "H Rapid Transit Authority. 471-8048"
atsay 09 02 n8 "I Faulkner's Supply....... 383-4905"
atsay 10 02 n8 "J Bull City TIBBS......... 383-8707"
atsay 11 02 n8 "K Boinger Board........... 846-3734"
atsay 12 02 n8 "L Real Hackers' Inn....... 846-4499"
atsay 13 02 n8 "M Devil's Advocate BBS.... 848-0901"
atsay 14 02 n8 "N Equal BBS............... 851-6806"
atsay 15 02 n8 "O The Next Generation..... 851-8066"
atsay 16 02 n8 "P NCC FidoNet (151/100)... 851-8460"
atsay 17 02 n8 "Q Z-Board................. 833-7435"
atsay 18 02 n8 "R State of the Art #2..... 834-0649"
atsay 19 02 n8 "S The Recording Studio.... 839-5907"
atsay 20 02 n8 "T RBBS IBM PC Ral-Net #2.. 790-3810"
atsay 21 02 n8 "U CCCC.................... 469-5611"
atsay 01 43 n8 "V Reel Class BBS.......... 481-4300"
atsay 02 43 n8 "W U-NAME-IT............... 967-4249"
atsay 03 43 n8 "X Durham After Dark....... 477-9552"
atsay 04 43 n8 "Y Panopticon Central...... 489-6890"
atsay 05 43 n8 "Z TriCity Mall............ 471-6255"
atsay 06 43 n8 "0 Tag FidoNet (360/105)... 544-3793"
atsay 07 43 n8 "1 A.L.S. BBS.............. 460-0586"
atsay 08 43 n8 "2 Wild West BBS........... 481-4702"
atsay 09 43 n8 "3 DialYourMatch #20....... 362-0676"
atsay 10 43 n8 "4 The Pits................ 362-8053"
atsay 11 43 n8 "5 Aladdin's Lamp.......... 460-0607"
atsay 12 43 n8 "6 The Multiverse.......... 467-3520"
atsay 13 43 n8 "7 RCP/M-86 BBS............ 469-9750"
atsay 14 43 n8 "8 Solar Comet............. 481-4732"
atsay 15 43 n8 "9 Desktop Publishing...... 286-3195"
atsay 16 43 n8 "@ Deep Thought............ 471-6436"
atsay 17 43 n8 "# Starship Traveller...... 682-4225"
atsay 18 43 n8 "$ Sesame BBS.............. 737-3990"
atsay 19 43 n8 "% Little Chip BBS......... 772-1277"
atsay 20 43 n8 "& MicroMessage Service-MU. 779-6674"
atsay 21 43 n8 "* Software Workshop....... 782-6123"
locate 23 00
get s0
goto top
return